﻿Public Class Facebook

    Private Sub Facebook_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        Dim html As String
        html = "<html>" + vbCrLf + _
               "<head>" + vbCrLf + _
               "</head>" + vbCrLf + _
               "<body>" + vbCrLf + _
               "<iframe src=""http://www.facebook.com/plugins/likebox.php?href=http%3A%2F%2Fwww.facebook.com%2FSoftWayBrasil&amp;width=400&amp;height=590&amp;colorscheme=light&amp;show_faces=true&amp;border_color&amp;stream=true&amp;header=true"" scrolling=""no"" frameborder=""0"" style=""border:none; overflow:hidden; width:400px; height:590px;"" allowTransparency=""true""></iframe>" + vbCrLf + _
               "</body>" + vbCrLf + _
               "</html>"

        WebBrowser1.Navigate("about:blank")

        If WebBrowser1.Document IsNot Nothing Then

            WebBrowser1.Document.Write(String.Empty)

        End If

        WebBrowser1.DocumentText = html


    End Sub
End Class